% Considere um dado de seis faces numeradas de 1 a 6 lancado 2 vezes. 
% Assuma que o dado e equilibrado 
%"A – a soma dos dois valores e igual a 9”, 
% “B – o segundo valor e par”, 
% “C – pelo menos um dos valores e igual a 5"
% “D – nenhum dos valores e igual a 1”. 
%(a) Estime por simulacao a probabilidade da cada um dos 4 acontecimentos.

n = 2; %numero lancamentos
m = 6; %numero de faces
N = 1e5; %numero experiencias

%Acontecimento A

lancamentos = randi(m,n,N); %cada coluna uma experiencia

sucessos=0;

for c = 1 :N
    if (lancamentos(1,c)+lancamentos(2,c)) == 9;
        sucessos=sucessos+1;
    end
end

probA= sucessos/N

%Acontecimento B

sucessos=0;

for c = 1 :N
    if rem(lancamentos(2,c),2)==0;
        sucessos=sucessos+1;
    end
end

probB= sucessos/N

%Acontecimento C

sucessos=0;

for c = 1 :N
    if lancamentos(1,c)==5 || lancamentos(2,c)==5;
        sucessos=sucessos+1;
    end
end

probC= sucessos/N

%Acontecimento D

sucessos=0;

for c = 1 :N
    if lancamentos(1,c)==1 || lancamentos(2,c)==1;
        sucessos=sucessos+1;
    end
end

probTemp= sucessos/N;
probD = 1-probTemp